In [3]:

    

#PUBLICAS
setwd("~/TCC/Working/Nov2016")
enem <- read.csv2("[2]enem14--Publica--v1--15-11-2016.csv")
turmas <- read.csv2("[2]turmas14--Publica--v1--15-11-2016.csv")
colnames(turmas)[2] <- "munturmas"

#ENEM + turmas
selturmas <- enem$dfEnem[match(turmas$munturmas, enem$dfEnem)]
turmas <- subset(turmas, turmas$munturmas==selturmas)
selfinal <- turmas$munturmas[match(enem$dfEnem, turmas$munturmas)]
enem <- subset(enem, enem$dfEnem==selfinal)
enem[, 32:78] <- turmas

write.csv2(enem, "[3.a]enem_turmas--Publica--v1--25-11-2016.csv")


    

In [2]:

    

#PRIVADAS----
setwd("~/TCC/Working/Nov2016")
enem <- read.csv2("[2]enem14--Privada--v1--15-11-2016.csv")
turmas <- read.csv2("[2]turmas14--Privada--v1--15-11-2016.csv")
colnames(turmas)[2] <- "munturmas"

#ENEM + turmas
selturmas <- enem$dfEnem[match(turmas$munturmas, enem$dfEnem)]
turmas <- subset(turmas, turmas$munturmas==selturmas)

selfinal <- turmas$munturmas[match(enem$dfEnem, turmas$munturmas)]
enem <- subset(enem, enem$dfEnem==selfinal)
enem[, 32:78] <- turmas

write.csv2(enem, "[3.a]enem_turmas--Privada--v1--24-11-2016.csv")


    

In [ ]: